home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / crt.swg / 0019_Writing to Line 25.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-05  |  1.1 KB  |  34 lines
  1. {
  2. SB> Hi, i got a LITTLE problem, i want to make a window that takes all 2
  3. SB> lines of my screen.  There is a little piece of code that do this
  4. SB> window, but when it is executed, i lost the first line, could someon
  5. SB> help me?
  6.  
  7. Here's something that I have in my tool box that may help you out. }
  8.  
  9. PROCEDURE WriteC80_25(S, Fore, Back, Blink : Byte);
  10. { This procedure will write a single character to the 80th column,
  11.   25th row of the screen without scrolling it on a color monitor }
  12.  
  13. BEGIN
  14.    Mem[$B800:3998] := S;
  15.    Mem[$B800:3999] := Blink + (Back SHL 4) + Fore;
  16. END; { WriteC80_25 }
  17.  
  18. PROCEDURE WriteM80_25(S, Fore, Back, Blink : Byte);
  19. { This procedure will write a single character to the 80th column,
  20.   25th row of the screen without scrolling it on a Mono monitor }
  21.  
  22. BEGIN
  23.    Mem[$B000:3998] := Ord(S);
  24.    Mem[$B000:3999] := Blink + (Back SHL 4) + Fore;
  25. END; { WriteM80_25 }
  26.  
  27. What I would do in your case is I would call the appropriate procedure
  28. for the last character that you write to the screen in your Draw_Window
  29. routine.
  30.  
  31. Hope that helps you!
  32.  
  33. Tom Carroll
  34.